\include "../include/drumstaff.ily"
\include "../include/feathered.ily"
\include "../include/gliss.ily"
\include "../include/arrows.ily"

\header{
  tagline = ""
}

\markup\justify { Distribute instruments among players according to the SATB (soprano, alto, tenor, bass) designations below. For example, Player I should use the highest pitched tom available, Player IV the second highest, Player II the second lowest, and Player III the lowest. }

\score {
  <<
    \new DrumStaff
    \with {
      drumStyleTable = #(alist->hash-table drumstaff)
      instrumentName = \markup\bold { "I" }
    }
    \drummode {
      \once \override Staff.TimeSignature #'stencil = ##f
      \cadenzaOn
      ba4^\markup {bass drum} ti^\markup {timpani (T)} to^\markup {tom (S)} ro^\markup {roto tom (T)} br^\markup {brake drum (T)} cy^\markup {cymbal (B)}
    }
    \new DrumStaff
    \with {
      drumStyleTable = #(alist->hash-table drumstaff)
      instrumentName = \markup\bold { "II" }
    }
    \drummode {
      \once \override Staff.TimeSignature #'stencil = ##f
      \cadenzaOn
      go4^\markup {gong} ti^\markup {timpani (A)} to^\markup {tom (T)} ro^\markup {roto tom (S)} br^\markup {brake drum (B)} cy^\markup {cymbal (A)}
    }
    \new DrumStaff
    \with {
      drumStyleTable = #(alist->hash-table drumstaff)
      instrumentName = \markup\bold { "III" }
    }
    \drummode {
      \once \override Staff.TimeSignature #'stencil = ##f
      \cadenzaOn
      ta4^\markup {tam-tam} ti^\markup {timpani (S)} to^\markup {tom (B)} ro^\markup {roto tom (B)} br^\markup {brake drum (S)} cy^\markup {cymbal (T)}
    }
    \new DrumStaff
    \with {
      drumStyleTable = #(alist->hash-table drumstaff)
      instrumentName = \markup\bold { "IV" }
    }
    \drummode {
      \once \override Staff.TimeSignature #'stencil = ##f
      \cadenzaOn
      sp4^\markup {truck spring} ti^\markup {timpani (B)} to^\markup {tom (A)} ro^\markup {roto tom (A)} br^\markup {brake drum (A)} cy^\markup {cymbal (S)}
    }
  >>
  \layout {
    \context {
      \Score
      proportionalNotationDuration = #(ly:make-moment 1/32)
    }
  }
}

\markup\justify { Timpani and roto tom glissandi are notated on a single line staff emerging from their regular staff line. Only the gesture, not the exact pitch of the glissani is important. The staff line represents the low end of the instrument's range. A \arrowdown or \arrowup arrow indicates that the instrument will need to be tuned up or down in order to be in position for the next time that it is used. }

\score {
  \new DrumStaff
  \with {
    drumStyleTable = #(alist->hash-table drumstaff)
  }
  \drummode {
    \numericTimeSignature
    ti8 ti ti ti \timpanistaff ti \glissando \glon ti ti ti |
    \gloff tu \glissando \glon ti ti ti \gloff ti ti \normalstaff ti ro |
    \rototomstaff ro \glissando \glon ro ro \gloff rt \normalstaff r2^\arrowdown |
    r2 br8 cy ro ro |
    \rototomstaff ro \glissando \glon ro ro ro 
    \gloff rt \glissando \glon ro ro \gloff ro
  }
  \layout {
    indent = #0
    \context {
      \DrumVoice
      \consists "Glissando_engraver"
    }
  }
}

\markup\justify { Feathered beaming indicates that a passage should be played accelerating or decelerating from the preceding note duration to the subsequent note duration. }

\score {
  \new DrumStaff
  \with {
    drumStyleTable = #(alist->hash-table drumstaff)
  }
  \drummode {
    \numericTimeSignature
    \tuplet 3/2 {to4 to to} \acc \tuplet 5/8 {to16[ to to to to} |
    \tuplet 7/8 {to to to to to to to]} to16[ to to to to to to to] |
    \acc \tuplet 5/4 {to[ to to to to} \tuplet 7/4 {to to to to to to to]} to32 to to to to to to to to to to to to to to to |
  }
  \layout {
    indent = #0
  }
}